home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 25 / CDROM25.iso / lazer / fpwtdemo / Poster.dcr / Behaviors_42_Pickup Item.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  487 b   |  20 lines
  1. global HAND_CURSOR, GRAB_CURSOR, GRAB_CH, gnNumPieces
  2.  
  3. on mouseEnter
  4.   cursor([HAND_CURSOR, HAND_CURSOR + 1])
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(0)
  9. end
  10.  
  11. on mouseDown me
  12.   set gnNumPieces to gnNumPieces - 1
  13.   cursor([GRAB_CURSOR, GRAB_CURSOR + 1])
  14.   set the member of sprite GRAB_CH to the member of sprite the spriteNum of me
  15.   set the loc of sprite GRAB_CH to the loc of sprite the spriteNum of me
  16.   MoveItemsUP(the spriteNum of me)
  17.   DragItem(me)
  18.   cursor([HAND_CURSOR, HAND_CURSOR + 1])
  19. end
  20.